setClass("VNonParamClusterAlg",contains="VClusterAlg",
		representation(
				.indexObject="InternalClusterScore",
				"VIRTUAL"
		),
		prototype=prototype(
				.description="Virtual non parametric Clustering "
		
		)
)
#global functions
genClusNumSeq <- function(inputSet){
	# minimum 2 clusters max 4-elements clusters
	#return(2:(dim(inputSet$X)[1]/4 ))
	#TODO change this 
	return(2:5)
}
#methods
#initialization method 
setMethod("initialize",
		signature="VNonParamClusterAlg",
		function(.Object,indexObject,...){
			.Object <-callNextMethod(.Object,...)
			.Object@.indexObject <- indexObject
			return(.Object)
		})

setMethod("get_description",
		signature="VNonParamClusterAlg",
		definition=function(.Object){
			paste(.Object@.description, get_description(.Object@.indexObject),sep=" " )
		})
